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The Plot 

King Xmon was furious. "That rogue Zabad the 
Sorcerer has stolen the Chalice of Power," he roared. 
"It must be recovered — summon my Champion, 
Melion!" 

Melion was called and appeared before his 
King. The King wasted no time and charged him with 
the immediate recovery of the Chalice. 

As the powers that Melion was about to en¬ 
counter were essentially magical, he decided to take 
with him his magic staff. The staff would provide him 
with defence, the power to attack and money, if need¬ 
ed. Fully charged, it held 1000 units of power, and as 
he took it from its place, glistening in the light and with 
an aura of power shimmering around it, he knew he 
would need all the power it possessed. 

Zabad dwelt in an underground system of 
chambers connected by tunnels and inhabited by many 
evil creatures. Originally excavated as burial 
chambers, this had for many years been the lair of 
Zabad and his 'pets'. For far and wide, people trembled 
at the very mention of the Sorcerer's Lair. 

A mental command to his staff and the 
universe spun round. Melion was transported to an 
empty chamber in the Sorcerer's Lair. Already 500 
units of his staff's power was exhausted. Now he 
could only return if he found the Chalice. With only 
500 units of power left, it wasn't going to be easy . . . 


Machine Code 

This program uses four machine code routines. They 
are as follows, and are held in the first line (a REM line). 

1) 16514 to 16527 Subroutine to check if key is 

pressed and find its value (in 
Register A) 

2) 16528 to 16552 Routine calling 1) to check if 

valid key is pressed (compares 
to CS) 

3) 1 6553 to 1 6623 Routine to move/scroll map 

sideways — calls routine 2, 
prints elements of MS 

4) 16624 to 16637 A search routine to check and 

find the inverse X position on 
screen 

Also held in the REM are two 'look-up' tables for the 
program. 

1 6638 to 16721 An 84 byte table of chamber co¬ 
ordinates related to MS(YI,XI) 
for each room position 

16772 to 16889 A 168 byte table containing 
room relationships, eg connec¬ 
ting rooms 




















At first I held these tables in two strings; however, this 
meant that each table occupied over twice as much 
memory because they were held once in the BASIC 
listing, and again in the variables area. My solution was 
to transfer them to the REM where they are only kept 
once, then to PEEK at them. 


9000 PRINT "ADDRESS TO START ?"; 

9010 INPUT A 
9020 PRINT A 
9030 LET A$="" 

9040 LET X=0 

9050 IF A$ ="" THEN INPUT A$ 

9060 IF A $ = "S" THEN STOP 
9070 IF X=0 THEN SCROLL 
9080 IF X=0 THEN PRINT A;": 

9090 PRINT A$( TO 2);" 

9100 POKE A,16*CODE A$+CODE A$(2)-476 

9110 LET A=A+1 

9120 LET A$=A$(3 TO ) 

9130 LET X=X+1 

9140 IF X=6 THEN GOTO 9040 

9150 GOTO 9050 

9200 PRINT "START ADDRESS ?" 

9210 INPUT A 
9220 FOR 1=0 TO 21 
9230 SCROLL 
9240 PRINT A;": 

9250 FOR J=0 TO 5 
9260 r ET P = PEEK A 
9270 LET N=INT (P/16) 

9280 PRINT CHR$ (N+28);CHR$ (P-16*N+28);" " 

9290 LET A=A+1 
9300 NEXT J 
9310 NEXT I 

9320 IF CODE INKEY$<>118 THEN GOTO 9320 
9330 GOTO 9220 

Program 1. Hex loader routine. 


To set up this section of the program, type in 
Program 1, which is a variation of the Hex loaders 
which have been printed many times: if you already 
have one then use that. Note that the code from line 
9200 provides a mini disassembler — useful for check¬ 
ing your entries. 

Before running this program, type in 1 REM 
followed by 380 dots, and newline. 

If you now type POKE 16510,0 newline, 
you'll find 1 REM. . . has now become 0 REM . . . and 
cannot be removed — a useful safety device. 

Now RUN the program and to the prompt 
"START ADDRESS" enter 16514 newline. Now enter 
all the code in Fig. 1 — very carefully. I suggest you 
enter the six bytes (1 2 characters) of each line — no 
spaces — and newline, then double check with the 
screen. If you do make an error, input S newline, RUN 
the program, enter the address at the start of the error 
line and re-enter all six bytes — continue as before. 
When it is all in, press S newline, and relax. 
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Check all is in position by the following tests: 

Type 

Correct No on screen 

PRINT PEEK 16527 

201 

PRINT PEEK 16699 

0 

PRINT PEEK 16624 

1 

PRINT PEEK 16889 

39 


If anything different turns up then type GOTO 9200 
enter 16514 to the prompt and carefully check the 
screen against the print until you find the error. 

Now SAVE your program, because if 
anything is still wrong, the following tests could 
destroy it. 

Type RAND USR 16514 newline. The screen 
should be clear; pressing any key should produce a 0/0 
report — if so, then it's OK. 

Add lines: 

3 REM 

5 DIM C$(5) 

10 DIM M$(21,79) 

It is essential that lines 5 and 10 occupy these posi¬ 
tions and in this order, else the machine code will be 
unable to find them when the time comes. 
Temporarily type: 

20 LET C$="IANU*" 

30 LET X= USR 16528 

RUN this, the screen will be blank until any of the four 
keys in CS are pressed — even Break doesn't work! 
This provides the perfect INKEYS function as no other 
code is required for checking keypress validity! Also X 
becomes the value (1 to 4) depending on the order in 
CS. Therefore you could type 

20 LET C$="4321*" and X 

This would return the value of 5-key, ie inverted 
values. 

To check the next two sections you will need 
to type in all the code from line 9500 to 9720. Once 
you have done this, type 

20 GOSUB 9500 

30 LET C$="LRE*" 

40 LET X= USR 16620 

50 STOP 


RUN this (after SAVEing) and, if all is OK, by pressing L 
and R the map should scroll from side to side. Press E 
when you get fed up to return to BASIC. 

Finally to check the last section change and add the 
lines: 
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LET Y=INT(RND*4 2+1) 

LET YI= PEEK (16637+Y*2-1) 
LET XI= PEEK (16637+Y*2) 
LET M$ (YI,XI) = "X" 

LET C$="LRE*" 

LET X=USR 16620 
LET X=USR (16624)-! 


RUN this, as before scroll the map back and forward 
until the room in which the inverse X appears is on the 
screen — press E. 

Type Print X — a high number should appear 
(this may vary depending on how much BASIC has 
been entered). Typing POKE X, 1 28 should produce an 
inverse square on the screen in the same place as the 
inverse X occupied previously. 


Line 

5 to 167 
170 to 320 
330 to 480 
500 to 530 
600 to 620 
700 to 740 
800 to 830 
900 to 990 
1000 to 1020 
2000 to 2290 
3000 to 3520 

4000 to 4140 
5000 to 51 50 
6000 to 6220 
7000 to 7190 
8000 to 8030 
8500 to 8740 
9200 to 9230 
9500 to 9720 


Function 

Set up the game 

The main game loop 

End of game routines 

A 'pause' subroutine 

'Power left' routine 

Position player subroutine 

Jump from room 14-40 routine 

Jump (move) under tunnels 

Find and print monster/character 

Map and movement 

Print new room, character and 

monster attack routines 

'Create wall' routine 

'View' routine 

Surrounding rooms print subroutine 
Title and instructions 
Scroll CLS routine 
Wandering monsters subroutine 
Assign beasties to rooms subroutine 
Set up map in MS 


Table 1. Explanations and functions of lines in Program 2. 




BASIC 

If all is well then enter the main program. Pro¬ 
gram 2. It may be wise to delete your existing lines in 
order to avoid confusion as you should no longer need 
them. 

The only area which is likely to cause problems is the 
'Map' section, the correct spacings and inverse 
characters must be used. The map diagram is for you to 
check your program with, adjust faulty lines until it is 
correct with Fig. 2. Note that if wrong, the machine 
code will still work OK, but your map will print in a 
disconnected, mixed-up way. 


Playing the Game 

You and the Sorcerer start in random rooms. You will 
be given clues as to what is lurking in adjacent rooms. 
To find out exactly what lies in wait, use the 'View' 
facility; this uses power, however. To move, use the 
Move option: you will be shown the map from the left 
side. Use keys L/R to scroll the map left or right to get 
your character (inverse X) onto the screen. Also posi¬ 
tion the map so that the room you wish to move to is on 
screen; once you are ready, press E. Now move your 
character along the tunnels using cursor keys (5,6,7 
and 8). 


You may be attacked along the way; if so, you 
must decide whether to use more of your precious staff 
power or to retreat. If you retreat you will be put back 
into the room you started from. When you reach a new 
room (or return to your starting room), the screen will 
clear and the details of the room will be printed. 

When (and if) you locate the Sorcerer, you 
must chase him around — he will always escape if 
there is an exit — until he is in a room with only two tun¬ 
nels (eg, 1 5, 1 8 etc). You can block his exit by creating 
a magic wall in one of the attached rooms, then ap¬ 
proach him from the other side (he cannot get past 
you). However, sometimes the magic wall doesn't 
work and it all takes up precious power from your staff! 


Emergency Cover 

If you encounter any problems with getting the pro¬ 
gram to run, it is almost certainly caused by a slip or 
two whilst entering the data. Get someone esle to go 
over the whole thing for you. If you follow the instruc¬ 
tions given here, it will work. You may think you've 
done it perfectly, but get it checked all the same. 

If all else fails then you can write for 
assistance to Poster Programs No 3, ASP Ltd, 145 
Charing Cross Road, London WC2H OEE. Please note 
that we cannot deal with any enquiries by telephone. 












Program 2. The mair 
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Jl23^4.S6| | 769bRBCl CC ID 
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£E £7R «9C $E $:R 


> +/ 


UR XT 


"47 

258B . 

5 DIM C$(5) 

10 DIM M$(21,79) 

15 GOSUB 7130 
20 PRINT RT 10^0;"PLEASE 

UHILE I SET UP GAME" 

25 LET N=42 
30 LET RT *3 
35 LET L =0 
4-0 DIM B(4) 

4-5 GOSUB 9500 
65 DIM AIN) 

70 FOR X=1 TO 10 
80 GOSUB 9200 
90 NEXT X 
100 FOR 1=1 TO 3 
110 LET X=10 
115 GOSUB 9200 
120 NEXT I 
130 LET X = 11 
135 GOSUB 9200 
140 LET X=0 
145 GOSUB 9200 
150 LET Y =RM 
152 GOSUB 700 

154 LET X=0 

155 GOSUB 9200 
160 LET C =RM 
165 LET M =500 
167 LET L =0 
170 LET U=0 
175 LET K =0 

179 GOSUB 6000 

180 PRINT ../TAB 13; " CHOOSE" , , , " 

Brerte urll Boue Bieu- 

190 LET C$ = "M/CU*" 

200 GOSUB 1000+1000»USR 16528 
240 IF R ( Y) =0 OR K = 1 OR R CY) =10 
OR R CY) =11 OR U = 1 THEN GOTO 280 
250 PRINT //‘•THE **; 

253 LET Z=Y 
255 GOSUB 1000 

>7 PRINT “URKES UP. 


260 GOTO 390 
280 IF M >0 THEN GOTO 320 
290 PRINT //-YOUR STAFF IS NOU 
USELESS** / "AND THE EUIL FORCE ATT 
RCKS ’* 

300 GOTO 390 

320 IF U=0 THEN GOTO 170 
^330 PRINT RT 5/7;"CONGRATULRTIO 

^ 3 i2cr P 2, I .y7.. ' ' *’ VOU Hn ^E DEFERTE 
' * SORCERER . UOULD 

OTHER^ONE T °?“'* TRY T ° TRRP ° N 
34 5 PRINT ////TAB 8;*j 


"fie 


>0 LET C $ = ** YN * ** 

360 IF USR 16528=2 THEN STOP 
370 LET M$CYI/XI)=CHR$ U 
380 GOTO 60 ^ 

390 PR IJfT / / "OH DERR/YOU APPEAR 
^do YOU URNT TO BE 

40^^^T^?= - YN *- 
410 IF USR 16528=2 THEN STOP 
420 PRINT ,/"UITH THE SAME SORC 
ERER ?*• 

425 IF INKEYIO— THEN GOTO 425 
430 IF USR 16528=2 THEN GOTO 37 
C 

440 LET x=.0 
450 GOSUB 9200 
460 LET Y=RM 

465 LET H4(YI/XI)=CHR$ U 

47© GOSUB 700 

475 CLS 

480 GOTO 165 

500 FOR 1=1 TO 50 

510 NEXT I 

530 RETURN 

600 LET M=M-R 

610 PRINT //-YOU HAUE USED ";R; 
- UNITS."/"YOU HAUE ";M;" UNITS 
LEFT.- 


620 GO+O 500 

700 LET YI=PEEK ( 16637+Y+2-1) 
710 LET XI=PEEK (16637+Y+2) 

720 LET U=CODE M$(YI,XI) 

730 LET M$ (YI/XI) = "O'* 

740 RETURN 

800 LET Ml(YI/XI) =CHR % U 

S10 LET XI=(XI=79)+(79 AND XI=1 

) 

820 LET M$(YZiXI) = "O" 

830 GOTO 2000 

900 IF (0=16 AND PEEK (Z-l)=189 
) OR (0=17 AND PEEK (Z+l)=189) T 
HEN GOTO 2120 
905 LET FL =0 

910 FOR E =Z — (3 AND A = l) TO Z+C3 
AND A =4) 

915 IF PEEK E = 118 THEN LET FL = 1 
920 NEXT E 

925 LET M|(YI/XI)=CHR$ U 
930 LET XI=XI+4* ( (0 = 17) - (0 = 16) ) 
940 LET Z=Z+3*( (0 = 17) - (0 = 16) ) 
950 IF FL =0 THEN POKE Z,CODE B 


960 POKE P/U 

970 LET P=Z 

980 LET (YI/XI) =-B** 

985 IF FL = 1 THEN GOTO 2005 
990 GOTO 2120 

1000 PRINT (-RED DRAGON- AND A(Z 
)=l)+(-GREEN DRAGON** AND A(Z)=2) 
+ ("YELLOU DRAGON- AND A(Z)=3)+(" 
PLATINUM SERPENT- AND A(Z)=4)+(" 
GOLD SERPENT** AND A iZ) =5) + ( "SILU 
ER SERPENT- AND A (Z) =6) + (’*DUARF 
WITH A SABRE*’ AND A (Z) =7) + (-DWAR 
F WITH A SWORD” AND A (Z) =8) + ( "DU 
ARF UITH A KNIFE- AND A(Z)=9)+(" 
FRIENDLY GNOME- AND A(Z)=10)+("M 
AGIC SPOT- AND A(Z)=11) 

1010 LET S=UAL -3025202823182419 
140000" (1+ (A (Z) -1) *2 TO A(Z)*2) 
1020 RETURN 
2000 CLS 

2005 LET C$=“LREt M 
2010 POKE 16418/0 

2015 PRINT AT 0/0;" PREUIOUS/PR 
ESENT LOCATION -;Y 

2020 PRINT AT 23/0/“L OR R TO MO 
UE MAP:E TO CONTINUE" 

2030 LET HP =USR 16620 

2050 LET P =(USR 16624) -1 

2060 IF P<>-1 THEN GOTO 2100 

2070 PRINT AT 23/0;"YOU ARE NOT 

ON SCREEN :MOUE MAP.- 

2080 GOSUB 500 

2090 GOTO 2020 

2100 LET C$="5678*" 

2110 PRINT AT 23/0;"USE KEYS 5/6 
/7 AND 8 TO MOUE MAN- 
2120 LET A=(USR 16528) 

2130 LET Z=P+(A =4) -(A = l) +33* ( (A = 
2) - (A =3) ) 

2135 LET Q=PEEK Z 

2140 IF YI=10 AND (XI=1 OR XI=79 
) AND 0=118 THEN GOTO 800 
2145 IF 0=16 OR 0=17 THEN GOTO 9 
08 

2150 IF 0=0 OR 0=118 OR (0=5 AND 
PEEK (Z+l)=189) OR (0=133 AND P 
EEK (Z-l)=189) THEN GOTO 2120 
2155 LET D=U 
2160 POKE P,U 

2170 LET M*(YI/XI)=CHRS U 


21G0 LET U=Q 

2190 LEI P-Z 

2200 POKE P.CODE B 

2210 LET YI*YI+(A=2)-(A=3) 

2220 LET XI=XI+(A=4)-(A=l) 

2230 LET M$ (YI/XI) =”D • 

2235 IF RND > .93 AND U = 128 THEN G 
OTO 6500 

2240 IF (U >155 AND D>155) OR U<1 
56 THEN GOTO 2120 
2250 LET Y $ = "" 

2260 IF CODE M$(YI.XI-1) <156 THE 
N GOTO 2270 

2265 LET Y$=Y|+CHR$ (CODE M$(YI, 
XI-1)-128) 

2270 LET Y$=Y$+CHR$ (U-128) 

2275 IF CODE M$(YI,X*+1) <156 THE 
N GOTO 2285 

2280 LET Y$=Y$+CHR$ (CODE M$(YI, 
XI+1)-128) 

2285 LET P=UAL Y$ 

2290 CLS 

2300 POKE 16418/2 

3000 IF COP THEN GOTO 3180 

3010 LET U = 1 

3020 GOSUB 3470 

3030 IF F =0 THEN GOTO 3080 
3040 LET U=0 
3045 LET X =0 


3050 GOSUB 9200 
3060 LET C =RM 
3070 GOTO 3160 
3080 FOR 1=1 TO 4 
3090 LET T=PEEK ( 
) 

3100 IF T =0 OR T = 
THEN GOTO 3120 
3103 IF A (T) =10 T 
3105 LET C=T 
3110 LET U=0 
3113 GOSUB 3470 
3115 IF F = 1 THEN 
3120 NEXT I 
3140 IF U=1 THEN 
3150 PRINT "THE 5 
OFF.",,, 

3155 GOTO 3180 
3160 PRINT "THE S 
THE MAGIC SPOT, 
3180 LET Y=P 
3185 IF A(Y)=0 TH 
3190 GOSUB 6000 
3195 IF A (Y) < >11 
3200 PRINT "YOU H 
N ON THE MAGIC 

3205 LET X=0 
3210 GOSUB 9200 
3215 LET Y=RM 
3220 LET (YI/XI 

3225 GOSUB 700 
3227 RETURN 
3230 IF A (Y) < >10 
3240 LET R = I NT IG 
3250 PRINT ..-THE 
L YOU WHERE THE 
R " ; R ; '* GOLD*'/"CC 
o •• 


3255 LET B=0 
3260 LET C $ = *'YN* 
3270 IF USR 1652S 
3280 PRINT //”HE 

: c; " . " 


3300 LET K =0 
3303 LET Z=Y 
3305 PRINT / / "THI 
3307 GOSUB 1000 
3310 PRINT -IS Al 
•-i/* YOU HAUE 3 CH 
"STUN IT-/.TAB 9 
/TAB 9/"BESTROY 
3320 PRINT /.TAB 
D " 


3330 LET C $ = ** STD i 
3340 LET A =USR It 
3350 PRINT AT 21, 
GIC TO "+("STUN" 
SPORT- AND A =2) + I 
3370 INPUT R 
3375 IF R < =0 OR F 
70 

3380 CLS 
3385 PRINT "THE 
3390 GOSUB 1000 
3395 PRINT "IS 
3397 LET B=0 
3400 LET Q=RND 
3405 IF A=1 AND ( 

3410 IF A =1 AND ( 
LET K=1 

34 15 IF A < >2 OR ( 
GOTO 3430 


3420 PRINT 
3423 LET X=AlY) 
3425 LET A(Y)=0 
3427 GOSUB 9200 
3430 LET 0=RND 
3433 IF A =3 RND ( 

print "BBHuBHii 

3435 IF A =3 AND ( 
LET A(Y)=0 
3440 IF K =0 AND f 
NT "ONLY DAZED." 
3445 IF K =0 AND f 
B=INT (RND*8+1) 
3450 GOSUB 600 
3455 IF B >2 AND r 
00 

3460 RETURN 
3470 LET F =0 
3480 FOR «J = 1 TO A 
3490 LET T=PEEK i 


3495 IF T <1 THEN 
3500 IF A(T)=11 1 
3510 NEXT U 
3520 RETURN 
4000 CLS 

4010 PRINT "UHICI 
UISH TO CREA1 

L IN 7" 





















n program in BASIC 


t 

(16721+ (C*4 -4. +I) 
=Y OR T =l_ OR T=P 
fHEN GOTO 3120 


GOTO 304.0 
RETURN 

50RCERER HRS RUN 


SORCERER TROD ON 

•» » > t > 

HEN RETURN 

THEN GOTO 3230 
HRUE JUST TRODDE 
C SPOT . , , f , 


I)=CHR$ U 


THEN GOTO 3300 
RND *20) +20 
E GNOHE UILL TEL 
E SORCERER IS FO 
OINS.... Y OR N 


6=2 THEN RETURN 
IS IN CHAMBER " 


E 


BOUT TO ATTACK*’ . 
□ ICES : " , , ; TRB 9 i 

; ’’Bransport it - ', 

IT" 

8; ’’PRESS S,T OR 


*" 

6528 

f 0;"AMOUNT OF MR 
RND A = l)+("TRAN 
('’KILL” RND A=3) 

R>M THEN GOTO 33 


(R>S+0*S/3) THEN 
(R>S+Q*S/3) THEN 
(R<S+RND*S) THEN 


(R >S*4+Q*S) THEN 

1" 

(R>S*4+Q*S) THEN 
R (Y) < >0 THEN PRI 
R CY) < >0 THEN LET 


H > 0 THEN GOTO 33 


4 

(16721+ C C *4- —4. +J ) 

GOTO 3510 
THEN LET F = 1 


H CHRMBER DO YOU 
TE THE MRGIC URL 


4-020 INPUT L 

4-030 IF L < 1 OR L >N THEN GOTO 4-02 
0 

4.04.0 IF A (L ) < > 0 THEN GOTO 4-080 
4.050 PRINT , , “THE MRGIC URLL NOU 
EXISTS IN CHRMBER " ; L 

4-060 GOTO 4-110_ 

4.080 print , , "SSiEEEHH- • .chamber 

; L; ” ALREADY" , "CONTAINS MRGIC, 
THE URLL FAILS." 

4-090 LET L =0 
4-110 PRINT 

4.120 LET R = INT (RND+21+20) 

4.130 GOSUB 600 
4.140 RETURN 

5000 PRINT , /’UHICH CHRMBER TO U 
IEU 7" 

5005 INPUT P 

5010 IF P>0 RND P <N THEN GOTO 50 
30 

5015 GOSUB 9200 

5020 GOTO 5005 

5030 LET F =0 

5035 FOR 1=1 TO 4 

5040 IF B(I)=P THEN LET F=1 

5050 NEXT I 

5060 IF F =0 THEN PRINT .."YOU MR 
Y ONLY UIEU ADJACENT","CHAMBERS. 

5063 IF F=0 THEN GOTO 5005 
5065 GOSUB 500 
5067 CLS 

50T0 IF P=C THEN PRINT "YOU HRUE 
FOUND THE SORCERER- 
5080 IF A (P )=0 RND P=C THEN GOTO 
5130 

5090 IF R CP) =0 THEN PRINT "THE C 
HRMBER IS EMPTY" 

5095 IF R(P)=0 THEN GOTO 5130 
5100 PRINT "THERE IS R "; 

5110 LET Z=P 
5115 GOSUB 1000 

5120 PRINT "...IN CHRMBER ";P;". 

5130 LET RaINT (RND+21+lO) 

5140 GOSUB 600 
5150 RETURN 
6000 LET F =0 
6010 FOR 1=1 TO 4 
6020 LET B(I)=PEEK 


(16721+ CY #4-4 


+-I) ) 

6025 IF B(I)=0 THEN GOTO 6035 
6030 LET F=F+R(B(I)) 

6035 IF B(I)*C THEN LET F=F-1000 
6040 NEXT I 
6045 CLS 

6050 IF F =0 THEN GOTO 6160 
6060 PRINT "BEUARE 
6070 IF F < 0 THEN PRINT 


6080 FOR 1=1 TO 4 
6083 IF B ( I)=0 THEN GOTO 6150 
6090 LET TsRCBCI)) 

6095 IF T < =0 OR T >11 THEN GOTO 6 
150 

6100 PRINT "I CRN HERR "; 

RND T< * THEN PRINT " 

R 1 ^hIh > HISSING" 7 THEN PRINT " 
6130 IF T > 6 RND T<11 THEN PRINT 
"MONEY RATTLING" 

6140 IF T = 11 THEN PRINT "MAGICAL 
MUSIC" 

6150 NEXT I 

6160 PRINT ,,"YOU ARE IN CHRMBER 

.. . Y 

6162 IF R(Y)=0 THEN GOTO 6170 

6163 PRINT "THERE IS R "; 

6164 LET Z=Y 

6165 GOSUB 1000 

6170 PRINT ,,"TUNNELS LERD TO:"; 
6180 FOR 1=1 TO 4 

6190 IF 6(1) > 0 THEN PRINT BCI);" 

6200 NEXT I 

6210 PRINT 

6220 RETURN 

7130 PRINT RT 0.9. 

9 

7140 PRINT , YOUR TASK IS TO T 
RAP THE EUIL" ...... "SORCERER RND RE 

TURN THE MRGIC",./’CHRLICE." 

7150 PRINT ,,,," YOUR ONLY PROTE 
CTION IS YOUR", ,,"MRGIC STAFF UH 
ICH HRS 500 UNITS", ,,"OF POUER,U 
SE IT UISELY TO DEFEAT"THE HR 
ZRRDS OF THE SORCERERS",,,"LAIR" 
7160 PRINT RT 21,4, "PRESS (BBH1 
II TO CONTINUE" 

7170 IF CODE INKEY $ < >116 THEN GO 
TO 7170 

7180 GOSUB 8000 
7190 RETURN 


7999 STOP 

8000 FOR 1=0 TO 21 
6005 PRINT RT 21,31; 

8010 SCROLL 

8020 NEXT I 
8030 RETURN 

8500 LET R = INT (RND + 10 + 1) 

3510 LET A$=" 

fl "+("BIG BAT" RND 
R=l)+("LARGE SNAKE" RND R=2)+("P 
OISONOUS SPIDER" RND R=3)+("UICI 
OUS RAT" RND R=4) 

8520 LET R$=R$+("UAMPIRE BAT" AN 
D R=5)+C"DEADLY SCORPION" RND R= 
6) + ("HISSING COBRA" RND R=7) +("T 
ARRNTULR" RND R=8)+("SURRM OF KI 
LLER BEES" RND R=9)+("PRCK OF RR 
TS" RND R = 10) 

8530 LET R$=R$+" BAR"+("S" RND R 

< 9) ♦" THE UAY,KEY M TO USE MRGIC 
D Tfl DFTDFAT ** 

8540 PRINT RT 23,0;AS( TO 32) 
8550 IF LEN R$=32 THEN GOTO 8580 
8560 LET R$=R$ C 2 TO ) 

8570 GOTO 8540 
8580 LET C$="RM+" 

0590 IF USR 16528=2 THEN GOTO 86 


0600 LET M$(Y1.X1) suHR$ U 
6610 GOSUB 700 
8620 GOTO 2005 

3630 LET R = INT (RNDt (R«2) +1) 

8640 PRINT RT 23,0,"YOU USED ";R 
;" UNITS OF POUER.. 

8650 LET M=M-R 

8655 GOSUB 500 

8660 IF M < =0 THEN CLS 

8670 IF M < =0 THEN GOTO 290 

8680 IF RND>.7 THEN GOTO 8720 

8690 PRINT RT 23,0;"THE MRGIC UO 

3KED, YOU MAY PASS." 

8700 GOSUB 500 
3710 GOTO 2100 

8720 PRINT RT 23,0;"IT FAILS,THE 
CREATURE RDURNCES.." 

8730 GOSUB 500 
8740 GOTO 8540 

9200 LET RM = INT (RND+42 + 1) 

9210 IF R (RM) >0 OR RM =L THEN GOT 
O 9200 

9220 LET R(RM)=X 
9230 RETURN 

9500 LET Mt( 1 ,15 TO )="■ 


9510 LET M$(2,15 TO )="S 


9520 LET M$(3)=M$(2) 
9530 LET M$C4)=" 


5540 LET MS C53 = 


9550 LET M$CS)=M$(5) 
9560 LETH$(7)= 



9570 LET M$(8)=" 
9580 LET M$(9)=M$(S5 



3590 LET M $ (10) ="HLJL 19 ■ B 

n Sarti M IH1 wTm H 


i i i lwi 111 a 1 n A 1 1 


9610 LET M$(12)= M$(11) 
9620 LET M$(13)=M$C11) 
963 0 L ET M S C 14) 

JH ~ 

9540 LET M$(15) 

^ I 

9650 LET MS(16)=" 


‘ MS(16)=" 


r 3H) 

9660 LET MS C17) 



9670 LET MS CIS) =" 


9660 LET M$(19)=" 

* i . I s 

2690 LET M$(20)=MSC19) 
97QQ LET MS(21) 


9720 RE1 
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Sorcerer's Lair is not a game to be entered upon lightly — danger and temptation 
lurk everywhere in the chambers and tunnels in the underground home of Zabad 
the Sorcerer. 

Your quest is to locate and recover the stolen Chalice of Power. . . 
Armed only with your wits and your magic staff you must search the chambers 
and tunnels: peek into each room before you enter or you might come face to 
face with a fierce dragon or be attacked by an armed dwarf! If you're lucky you 
may encounter a friendly gnome who can be bribed with gold to tell you where 
the Sorcerer and Chalice are. All of your encounters are bound to cost you power 
from your staff. 

Assuming you manage to find the Sorcerer, you must try to trap him by 
building magic walls in adjoining rooms — he can't get past you but he may 
penetrate the wall and escape . . . 

Sorcerer's Lair is an exciting and absorbing graphics/adventure game 
for the 1 6K ZX81 (RAMpack needed) and is written in both BASIC and machine 
code. Full details on how to enter and run the program are given inside — even a 
simple-to-use machine code loader is included! The program itself has been ex¬ 
haustively tried and tested to ensure that you will have little difficulty with the 
listing, and the game is carefully balanced to guarantee an exciting challenge to 
the player. 

This is not a game that can be played and won in a matter of minutes — 
so if you have ever dreamed of being the hero or heroine who takes on the forces 
of evil in order to save the world, this could be just the trial run you've been look¬ 
ing for! 



ZX COMPUTING contains in each issue all the latest news and tips 
for ZX enthusiasts together with many useful, entertaining and in¬ 
teresting programs specially written for ZX computers. Published 
on the 4th Friday of January, March, May, July, September and 
November. 

Send £12.1 Op for six issues together with your name and ad¬ 
dress to ZX Computing, 51 3 London Road, Thornton Heath, Sur¬ 
rey CR4 6AR 























































